﻿<Serializable()> _
Public Class ProductoCompuestoBE
    Implements IComparable
    Protected mComparador As String
    Public Property Comparador() As String
        Get
            Return mComparador

        End Get
        Set(ByVal value As String)
            mComparador = value
        End Set
    End Property
    Public Function CompareTo(ByVal obj As Object) As Integer _
       Implements System.IComparable.CompareTo

        Try
            Return Comparador.CompareTo(obj.Comparador)

        Catch ex As Exception
            Throw New ApplicationException("No se pudo realizar la comparación. " & ex.Message)

        End Try

    End Function

    Private _NPCO_CODIGO As Integer
    Public Property NPCO_CODIGO() As Integer
        Get
            Return _NPCO_CODIGO
        End Get
        Set(ByVal value As Integer)
            _NPCO_CODIGO = value
        End Set
    End Property
    Private _NPRD_CODIGO As Integer
    Public Property NPRD_CODIGO() As Integer
        Get
            Return _NPRD_CODIGO
        End Get
        Set(ByVal value As Integer)
            _NPRD_CODIGO = value
        End Set
    End Property
    Private _NPRD_SUB_PRODUCTO As Integer
    Public Property NPRD_SUB_PRODUCTO() As Integer
        Get
            Return _NPRD_SUB_PRODUCTO
        End Get
        Set(ByVal value As Integer)
            _NPRD_SUB_PRODUCTO = value
            mComparador = value
        End Set
    End Property
    Private _NPCO_CANTIDAD As Integer
    Public Property NPCO_CANTIDAD() As Integer
        Get
            Return _NPCO_CANTIDAD
        End Get
        Set(ByVal value As Integer)
            _NPCO_CANTIDAD = value
        End Set
    End Property
    Private _NPCO_PRECIOUNITARIO As Double
    Public Property NPCO_PRECIOUNITARIO() As Double
        Get
            Return _NPCO_PRECIOUNITARIO
        End Get
        Set(ByVal value As Double)
            _NPCO_PRECIOUNITARIO = value
        End Set
    End Property
    Private _NPCO_PRECIO As Double
    Public Property NPCO_PRECIO() As Double
        Get
            Return _NPCO_PRECIO
        End Get
        Set(ByVal value As Double)
            _NPCO_PRECIO = value
        End Set
    End Property
    Private _DAUDI_FEC_INS As DateTime
    Public Property DAUDI_FEC_INS() As DateTime
        Get
            Return _DAUDI_FEC_INS
        End Get
        Set(ByVal value As DateTime)
            _DAUDI_FEC_INS = value
        End Set
    End Property
    Private _CAUDI_USR_INS As String
    Public Property CAUDI_USR_INS() As String
        Get
            Return _CAUDI_USR_INS
        End Get
        Set(ByVal value As String)
            _CAUDI_USR_INS = value
        End Set
    End Property
    Private _DAUDI_FEC_UPD As DateTime
    Public Property DAUDI_FEC_UPD() As DateTime
        Get
            Return _DAUDI_FEC_UPD
        End Get
        Set(ByVal value As DateTime)
            _DAUDI_FEC_UPD = value
        End Set
    End Property
    Private _CAUDI_USR_UPD As String
    Public Property CAUDI_USR_UPD() As String
        Get
            Return _CAUDI_USR_UPD
        End Get
        Set(ByVal value As String)
            _CAUDI_USR_UPD = value
        End Set
    End Property
    Private _CAUDI_EST_REG As String
    Public Property CAUDI_EST_REG() As String
        Get
            Return _CAUDI_EST_REG
        End Get
        Set(ByVal value As String)
            _CAUDI_EST_REG = value
        End Set
    End Property

    Private _COM_UNIDAD_VENTA As Integer
    Public Property COM_UNIDAD_VENTA() As Integer
        Get
            Return _COM_UNIDAD_VENTA
        End Get
        Set(ByVal value As Integer)
            _COM_UNIDAD_VENTA = value
        End Set
    End Property

    Private _UnidadVenta As String
    Public Property UNIDADVENTA() As String
        Get
            Return _UnidadVenta
        End Get
        Set(ByVal value As String)
            _UnidadVenta = value
        End Set
    End Property

    Private _DESSUBPRODUCTO As String
    Public Property DESSUBPRODUCTO() As String
        Get
            Return _DESSUBPRODUCTO
        End Get
        Set(ByVal value As String)
            _DESSUBPRODUCTO = value
        End Set
    End Property

    
End Class
